home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / misc / emu / arosdev.lha / AROS / workbench / libs / icon / deletediskobject.c < prev    next >
C/C++ Source or Header  |  1997-02-03  |  1KB  |  68 lines
  1. /*
  2.     (C) 1995-96 AROS - The Amiga Replacement OS
  3.     $Id: deletediskobject.c,v 1.1 1997/02/03 13:34:32 digulla Exp $
  4.  
  5.     Desc:
  6.     Lang: english
  7. */
  8. #include <proto/dos.h>
  9. #include "icon_intern.h"
  10.  
  11. /*****************************************************************************
  12.  
  13.     NAME */
  14. #include <proto/icon.h>
  15.  
  16.     AROS_LH1(BOOL, DeleteDiskObject,
  17.  
  18. /*  SYNOPSIS */
  19.     AROS_LHA(UBYTE *, name, A0),
  20.  
  21. /*  LOCATION */
  22.     struct Library *, IconBase, 23, Icon)
  23.  
  24. /*  FUNCTION
  25.     Deletes an icon description file.
  26.  
  27.     INPUTS
  28.     name  -  name of the icon file without the ".info".
  29.  
  30.     RESULT
  31.  
  32.     NOTES
  33.  
  34.     EXAMPLE
  35.  
  36.     BUGS
  37.     Does not yet notify workbench about the deletion.
  38.  
  39.     SEE ALSO
  40.  
  41.     INTERNALS
  42.  
  43.     HISTORY
  44.  
  45. *****************************************************************************/
  46. {
  47.     AROS_LIBFUNC_INIT
  48.     AROS_LIBBASE_EXT_DECL(struct Library *,IconBase)
  49.     UBYTE * infofilename;
  50.     BOOL    success;
  51.  
  52.     if (!(infofilename = (UBYTE*)AllocVec (strlen(name) + 6,
  53.     MEMF_ANY | MEMF_CLEAR)
  54.     ) )
  55.        return (FALSE);
  56.  
  57.     /* Construct the icon's name */
  58.     strcpy (infofilename, name);
  59.     strcat (infofilename, ".info");
  60.  
  61.     success = DeleteFile (infofilename);
  62.  
  63.     FreeVec (infofilename);
  64.  
  65.     return success;
  66.     AROS_LIBFUNC_EXIT
  67. } /* DeleteDiskObject */
  68.